home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Explore the World of CD …rtainment & Home Learning
/
Explore the World of CD Entertainment and Home Learning (Magnum Design)(Macworld)(1995).iso
/
*Consumer Demo CD ƒ
/
*ConsDemo
/
00002_Script_--movie script 2
< prev
next >
Wrap
Text File
|
1995-09-27
|
16KB
|
511 lines
--
on HiliteIcon demoName
end
on goIndexDemoEnt
global gReturnMarker,gmarkFrame,gchooseType,gDemoName,gSmallScreen,gDemoText,gLanguage
global gDemoPictSnum, gDemoTextSnum,gHLPictCNum,gHLTextCNum,gDemoNameSNum,gTextPages,gTextPagesG
global gTextPagesF,gTextPagesJ,gTextPagesE,gPageCount --EB 9/21
cursor 4
puppetSound "SFX.Click"
updateStage
HelpStatus
put " " into gDemoName
set gchooseType = 2
set demoNum = the ClickOn - 31 --(sprite clickons start at chan 32)
set gReturnMarker = marker(0)
set gmarkFrame = " "
set gPageCount = 1 --EB 9/21
if demoNum = 1 then
set ThisDemo to "Buried"
set gTextPagesE to 2
set gTextPagesF to 2
set gTextPagesG to 2
set gTextPagesJ to 4
set gmarkFrame to "Buried In Time:Buried In Time DEMO"
else if demoNum = 2 then
set thisDemo to "Dark Forces Demo"
set gTextPagesE to 1
set gTextPagesF to 1
set gTextPagesG to 1
set gTextPagesJ to 1
set gmarkFrame to "Dark Forces demo:Dark Forces Demo"
else if demoNum = 3 then
set thisDemo to "Diamonds"
set gTextPagesE to 1
set gTextPagesF to 2
set gTextPagesG to 2
set gTextPagesJ to 3
set gmarkFrame to "Diamonds 3D Demo:Diamonds 3D Demo"
else if demoNum = 4 then
set thisDemo to "Doom"
set gTextPagesE to 1
set gTextPagesF to 1
set gTextPagesG to 1
set gTextPagesJ to 3
set gmarkFrame to "Doom:Doom"
else if demoNum = 5 then
set thisDemo to "F/A-18"
set gTextPagesE to 1
set gTextPagesF to 2
set gTextPagesG to 2
set gTextPagesJ to 2
set gmarkFrame to "F/A-18 Demo:F/A-18 Hornet 2.0 Demo"
else if demoNum = 6 then
set thisDemo to "Foul Play"
set gTextPagesE to 1
set gTextPagesF to 1
set gTextPagesG to 1
set gTextPagesJ to 2
set gmarkFrame to "Foul Playô Demo:Foul Playô 68k"
--set gmarkFrame to "Foul Playô Demo:Foul Playô PPC"
else if demoNum = 7 then
set thisDemo to "Full Throttle"
set gTextPagesE to 1
set gTextPagesF to 1
set gTextPagesG to 1
set gTextPagesJ to 2
set gmarkFrame to "Full Throttle Demo:Full Throttle Trailer"
else if demoNum = 8 then
set thisDemo to "Havoc"
set gTextPagesE to 1
set gTextPagesF to 2
set gTextPagesG to 2
set gTextPagesJ to 3
set gmarkFrame to "HAVOCô Preview:HAVOCô Preview"
else if demoNum = 9 then
set thisDemo to "Links Pro"
set gTextPagesE to 2
set gTextPagesF to 2
set gTextPagesG to 2
set gTextPagesJ to 4
set gmarkFrame to "Links Pro CD Demo:Links Pro CD Demo"
else if demoNum = 10 then
set thisDemo to "Marathon II"
set gTextPagesE to 2
set gTextPagesF to 2
set gTextPagesG to 2
set gTextPagesJ to 3
set gmarkFrame to "Marathon 2:Marathon 2"
else if demoNum = 11 then
set thisDemo to "Onslaught"
set gTextPagesE to 1
set gTextPagesF to 1
set gTextPagesG to 1
set gTextPagesJ to 3
set gmarkFrame to "OnSlaughtô demoÉ:Onslaughtô Demo 1.0.5"
else if demoNum = 12 then
set thisDemo to "PowerPete"
set gTextPagesE to 1
set gTextPagesF to 2
set gTextPagesG to 2
set gTextPagesJ to 3
set gmarkFrame to "PowerPete:PowerPete(Demo)"
else if demoNum = 13 then
set thisDemo to "Reb Assault"
set gTextPagesE to 1
set gTextPagesF to 1
set gTextPagesG to 1
set gTextPagesJ to 2
set gmarkFrame to "Rebel Assault 2 Demo:Rebel Assault 2 Trailer"
else if demoNum = 14 then
set thisDemo to "Sensory Overload"
set gTextPagesE to 1
set gTextPagesF to 2
set gTextPagesG to 2
set gTextPagesJ to 3
set gmarkFrame to "Sensory Overloadô Demo 1.1:Sensory Overloadô Demo"
else if demoNum = 15 then
set thisDemo to "TD"
set gTextPagesE to 2
set gTextPagesF to 2
set gTextPagesG to 2
set gTextPagesJ to 4
set gmarkFrame to "Total Distortion:TD Demo!"
end if
HiliteIcon thisDemo
puppetSprite gDemoPictSNum,1 --28
puppetSprite gDemoTextSNum,1 --29
puppetSprite gDemoNameSNum,1 --26
puppetSprite 48,1 --for pageTurn
set DemoPict = ThisDemo & ".pict"
set DemoName = ThisDemo & ".name"
if gLanguage = "GER" then
set gTextPages = gTextPagesG
else if gLanguage = "ENG" then
set gTextPages = gTextPagesE
else if gLanguage = "FRE" then
set gTextPages = gTextPagesF
else if gLanguage = "JAP" then
set gTextPages = gTextPagesJ
end if
if gTextPages > 1 then
set gDemoText = ThisDemo & "." & gLanguage & ".text1"
set the castNum of sprite 48 to cast "pageTurnArrowsE"
else
set gDemoText = ThisDemo & "." & gLanguage & ".text"
set the castNum of sprite 48 to cast "pageTurnMaskE"
end if
set the castNum of sprite gDemoPictSNum to cast DemoPict
set the castNum of sprite gDemoTextSNum to cast gDemoText
set the castNum of sprite gDemoNameSNum to cast DemoName
-- set the text of cast "DemoName.textE" to the text of cast DemoName
--put "demoName=" & the text of cast demoName
updateStage
puppetSound 0
cursor -1
end goIndexDemoEnt
on goIndexDemoHL
global gReturnMarker,gmarkFrame,gchooseType,gDemoName,gSmallScreen,gDemoText, glanguage
global gDemoPictSnum, gDemoTextSnum,gHLPictCNum,gHLTextCNum,gDemoNameSNum,gTextPagesE,gTextPagesG
global gTextPages,gTextPagesF,gTextPagesJ,gPageCount --EB 9/21
cursor 4
puppetSound "SFX.Click"
updateStage
HelpStatus
set gDemoName = " "
set gchooseType = 1
set demoNum = the ClickOn - 31 --(sprite clickons start at chan 32)
set gPageCount = 1 --EB 9/21
set gReturnMarker = marker(0)
set gmarkFrame = " "
if demoNum = 1 then
set ThisDemo to "80 Days"
set gTextPagesE to 2
set gTextPagesG to 3
set gTextPagesF to 3
set gTextPagesJ to 4
set gmarkFrame to "80 Days Demo:80 Days Demo"
else if demoNum = 2 then
set thisDemo to "Dr. Seuss' ABC's"
set gTextPagesE to 1
set gTextPagesF to 2
set gTextPagesG to 2
set gTextPagesJ to 3
set gmarkFrame to "Dr. Seuss's ABC:Dr. Seussís ABC"
else if demoNum = 3 then
set thisDemo to "DK Science"
set gTextPagesE to 2
set gTextPagesF to 2
set gTextPagesG to 2
set gTextPagesJ to 2
set gmarkFrame to "SCIENCE:SCIENCE"
else if demoNum = 4 then
set thisDemo to "Freddi"
set gTextPagesE to 2
set gTextPagesF to 3
set gTextPagesG to 3
set gTextPagesJ to 5
set gmarkFrame to "Freddi Demo:Freddi Demo"
else if demoNum = 5 then
set thisDemo to "How Animals Move"
set gTextPagesE to 1
set gTextPagesF to 2
set gTextPagesG to 2
set gTextPagesJ to 3
set gmarkFrame to "How Animals Move Demo:How Animals Move Demo"
else if demoNum = 6 then
set thisDemo to "Airport"
set gTextPagesE to 2
set gTextPagesF to 2
set gTextPagesG to 2
set gTextPagesJ to 4
set gmarkFrame to "Airport demo:Airport Demo"
else if demoNum = 7 then
set thisDemo to "Math Munchers"
set gTextPagesE to 1
set gTextPagesF to 1
set gTextPagesG to 1
set gTextPagesJ to 2
set gmarkFrame to "Math Munchers:MMD Demo"
else if demoNum = 8 then
set thisDemo to "DK MFIAD" --my first dictionary
set gTextPagesE to 1
set gTextPagesF to 1
set gTextPagesG to 1
set gTextPagesJ to 2
set gmarkFrame to "MFIAD:MFIAD"
else if demoNum = 9 then
set thisDemo to "Oregon Trail II"
set gTextPagesE to 1
set gTextPagesF to 1
set gTextPagesG to 1
set gTextPagesJ to 2
set gmarkFrame to "Oregon Trail II:GENERIC_MAC"
else if demoNum = 10 then
set thisDemo to "PAWS"
set gTextPagesE to 2
set gTextPagesF to 2
set gTextPagesG to 2
set gTextPagesJ to 3
set gmarkFrame to "Paws:Paws"
else if demoNum = 11 then
set thisDemo to "Putt Putt"
set gTextPagesE to 2
set gTextPagesF to 2
set gTextPagesG to 3
set gTextPagesJ to 4
set gmarkFrame to "Zoo Demo:Zoo Demo"
else if demoNum = 12 then
set thisDemo to "Letters Demo"
set gTextPagesE to 1
set gTextPagesF to 2
set gTextPagesG to 2
set gTextPagesJ to 3
set gmarkFrame to "Sesame Street Letters Demo:Letters Demo"
else if demoNum = 13 then
set thisDemo to "Numbers Demo"
set gTextPagesE to 2
set gTextPagesF to 2
set gTextPagesG to 2
set gTextPagesJ to 4
set gmarkFrame to "Sesame Street Numbers Demo:Numbers Demo"
else if demoNum = 14 then
set thisDemo to "applehouse"
set gTextPagesE to 1
set gTextPagesF to 1
set gTextPagesG to 1
set gTextPagesJ to 2
set gmarkFrame to "The Magic Applehouse:Magic Applehouse"
else if demoNum = 15 then
set thisDemo to "Body"
set gTextPagesE to 1
set gTextPagesF to 1
set gTextPagesG to 2
set gTextPagesJ to 2
set gmarkFrame to "BODY:BODY"
end if
puppetSprite gDemoPictSNum,1 --28
puppetSprite gDemoTextSNum,1 --29
puppetSprite gDemoNameSNum,1 --26
puppetSprite 48,1 --for pageTurn
set DemoPict = ThisDemo & ".pict"
set DemoName = ThisDemo & ".name"
put "demoName = " && demoName
if gLanguage = "GER" then
set gTextPages = gTextPagesG
else if gLanguage = "ENG" then
set gTextPages = gTextPagesE
else if gLanguage = "FRE" then
set gTextPages = gTextPagesF
else if gLanguage = "JAP" then
set gTextPages = gTextPagesJ
end if
if gTextPages > 1 then
set gDemoText = ThisDemo & "." & gLanguage & ".text1"
set the castNum of sprite 48 to cast "pageTurnArrowsHL"
else
set gDemoText = ThisDemo & "." & gLanguage & ".text"
set the castNum of sprite 48 to cast "pageTurnMaskHL"
end if
set the castNum of sprite gDemoPictSNum to cast DemoPict
set the castNum of sprite gDemoTextSNum to cast gDemoText
set the castNum of sprite gDemoNameSNum to cast DemoName
--set the text of cast "DemoName.text" to the text of cast DemoName
-- put "demoName=" & the text of cast demoName
updateStage
puppetSound 0
cursor -1
end goIndexDemoHL
on doPageTurn --EB 9/21
global gTextPages, gDemoTextSnum,gDemoText,gPageCount,gLanguage,gDemoMarker
puppetSprite 29,1
puppetSprite 48,1
set DemoTextChars = the number of chars in gDemoText
set clickV = getAt(the ClickLoc,2) - the top of sprite 48
set PagingSpriteHeight = the height of sprite 48 - 15
if gDemomarker contains "HL2" then
set arrowsGrey = "PageTurnArrowsHL"
else if gDemomarker contains "E2" then
set arrowsGrey = "PageTurnArrowsE"
else if gDemomarker contains "Main" then
set arrowsGrey = "PageTurnArrowsM"
end if
if clickV < 15 then --page back
if gPageCount = 1 then
--swap sprite that shows user can't page back?
nothing
else
puppetSound "SFX.Click"
set gPageCount = gPageCount - 1
if gPageCount = 1 then set the castNum of sprite 48 to cast (arrowsGrey & "1")
put "pageTurn back" & gPageCount
put string(gPageCount) into char DemoTextChars of gDemoText
set the castNum of sprite gDemoTextSNum to cast gDemoText
end if
else if clickV > PagingSpriteHeight then --page forward
if gPageCount = gTextPages then
--swap sprite that shows user can't page forward?
nothing
else
puppetSound "SFX.Click"
set gPageCount = gPageCount + 1
if gPageCount = gTextPages then set the castNum of sprite 48 to cast (arrowsGrey & "2")
put "pageTurn fwd" & gPageCount
put string(gPageCount) into char DemoTextChars of gDemoText
set the castNum of sprite gDemoTextSNum to cast gDemoText
end if
else
nothing
end if
updateStage
puppetSound 0
end
on animCloseBox
global gDemoMarker
puppetSound "sfx.click"
puppetSprite 47,1
set the castnum of sprite 47 to cast "closebox.clicked"
updateStage
repeat with i=1 to 30
pause
end repeat
set the castnum of sprite 47 to cast "closebox.plain"
updateStage
goMarker gDemoMarker
puppetSprite 47,0
end
on helpReturn
global gDemoMarker
puppetSound "sfx.click"
puppetSprite 17,1
if gDemoMarker contains "E2" then
set helpButtonHilite = "Help.hiliteE"
set helpButtonXhilite = "Help.nohiliteE"
set the castnum of sprite 17 to cast helpButtonHilite
else if gDemoMarker contains "HL2" then
set helpButtonHilite = "Help.hiliteHL"
set helpButtonXhilite = "Help.nohiliteHL"
set the castnum of sprite 17 to cast helpButtonHilite
end if
updateStage
repeat with i=1 to 60
pause
end repeat
set the castnum of sprite 17 to cast helpButtonxhilite
updateStage
goMarker gDemoMarker
puppetSprite 17,0
end
on checkExit
if the commandDown and¨
(the key = "q" or the key = ".") and¨
the exitLock = true then quitDemo
if the commandDown and (the key = "q" ) and¨
the exitLock = true then quitDemo
end checkExit
on quitDemo
puppetSprite 4,0
puppetSprite 17,0
puppetSprite 26,0
puppetSprite 28,0
puppetSprite 29,0
puppetSprite 47,0
puppetSprite 48,0
updateStage
go "Credits"
--quit
end quitDemo
--____________________________________________________________________________
on LaunchDemo
Global gWriteObject,SysPath,gmarkFrame,gDemoMarker
--below: writes "demo.tmp" to "System Folder" of startup disk
put FileIO(mNew,"write",SysPath & "demo.tmp") into gWriteObject
--below:2nd line after "RETURN" is a projector -- one for each HL(+Lang) and E(+Lang) --8 total
--each projector is used for returning to proper marker within interface
if gDemoMarker contains "HL2" then
set demoMarker = "Home Learning:" & gmarkFrame & RETURN & gDemoMarker
else if gDemoMarker contains "E2" then
set demoMarker = "Entertainment:" & gmarkFrame & RETURN & gDemoMarker
end if
gWriteObject(mWriteString, demoMarker)
gWriteObject(mDispose)
open "DemoRunner 2.4"-- name of AppleScript App
quit --without saving dialog
end
on LaunchDemoII --for special case demos Reb Assault,Full Throttle,Onslaught, Doom
Global gWriteObject,SysPath,gmarkFrame,gDemoMarker
put FileIO(mNew,"write",SysPath & "demo.tmp") into gWriteObject
set demoMarker = gmarkFrame & RETURN & gDemoMarker
gWriteObject(mWriteString, demoMarker)
gWriteObject(mDispose)
open "DemoRunner 2.2A"-- name of AppleScript App for launching demos on root of CDROM
quit
end
on checkFoulPlayDemoType answer --for Foul Play Demo only
global gWriteObject,SysPath,gmarkFrame,gDemoMarker
set CPUType = answer
if CPUType = "PPC" then
set gmarkFrame = "Foul Playô Demo:Foul Playô PPC"
set demoMarker = gmarkFrame & RETURN & gDemoMarker
else if CPUType = "NotPPC" then
set gmarkFrame = "Foul Playô Demo:Foul Playô 68k"
set demoMarker = gmarkFrame & RETURN & gDemoMarker
else if CPUType = "Notsure" then
set gMarkFrame = ""
goMarker gDemoMarker
exit
end if
put FileIO(mNew,"write",SysPath & "demo.tmp") into gWriteObject
gWriteObject(mWriteString, demoMarker)
gWriteObject(mDispose)
open "DemoRunner 2.2A"-- name of AppleScript App for Foul Play and Rebel Assault only
quit --without saving dialog
end
on mouseDnHilite
end